您的訂閱是我製作影片的動力
訂閱點這裡~
影片程式碼
library(naniar)
data(iris)
any_na(iris) #前置1: chk NA
iris <- iris[,-5]
iris <- scale(iris) #前置2: standard norm 標準化
## kernel k-means ####
library(kernlab)
kkmeans <- kkmeans(iris, centers=4, kernel = "rbfdot",
kpar = "automatic",alg="kkmeans")
withinss(kkmeans) #比較
若內容有誤,還請留言指正,謝謝您的指教